Global $adj, $char, $cnt, $inifle, $type

$inifle = @ScriptDir & "\Settings.ini"
$def = IniRead($inifle, "Title", "part", "")
AutoItSetOption("WinTitleMatchMode", 2)
WinActivate($def, "")
Send("+{END}")
Send("^c")
$cnt = ClipGet()
$type = StringLeft($cnt, 7)
If $type = "Global " Then
$type = "Global"
Else
If StringLeft($type, 2) = "; " Then
$type = "Func"
Else
Exit
EndIf
EndIf
$cnt = StringLen($cnt)
If $cnt < 101 Then
Send("{LEFT}")
Send("{DOWN}")
Else
$adj = $cnt - 102
Send("{RIGHT}")
Send("{LEFT " & $adj & "}")
$char = ""
While $char <> ","
Send("{LEFT}")
Send("+{LEFT}")
Send("^c")
$char = ClipGet()
If $char = "," And $type = "Func" Then
Send("+{LEFT}")
Send("^c")
$char = ClipGet()
If $char = ")," Then
Send("+{RIGHT}")
$char = ","
Else
Send("{LEFT}")
Send("+{RIGHT}")
$char = StringLeft($char, 1)
EndIf
EndIf
WEnd
Send("{LEFT}")
Send("+{END}")
Send("^c")
$char = ClipGet()
$char = StringTrimLeft($char, 2)
;MsgBox(0, "Selected Text", $char)
If $char <> "" Then
Send("{DEL}")
Send("{RIGHT}")
If $type = "Global" Then
Send("+{RIGHT 6}")
Send("^c")
If ClipGet() <> "Global" Then
Send("{LEFT}")
Send("Global " & $char)
Send("+{HOME}")
Send("{LEFT}")
Send("{DOWN}")
Send("{ENTER}")
Send("{UP}")
Else
Send("{RIGHT 2}")
Send($char & ", ")
Send("+{HOME}")
Send("{LEFT}")
EndIf
ElseIf $type = "Func" Then
Send("+{RIGHT 1}")
Send("^c")
If ClipGet() <> ";" Then
Send("{LEFT}")
Send("; " & $char)
Send("+{HOME}")
Send("{LEFT}")
Send("{DOWN}")
Send("{ENTER}")
Send("{UP}")
Else
Send("{RIGHT 2}")
Send($char & ", ")
Send("+{HOME}")
Send("{LEFT}")
EndIf
EndIf
EndIf
EndIf
Exit